var A,B: TMtx; c: boolean; begin CreateIt(A,B); A.SetIt(2,2,false,[1,2, 2,4]); // 2x2 real matrix B.SetIt(2,2,false,[1,2, 2,4]); // 2x2 real matrix c := A.Equal(B,1e-8); // Check for differences bigger than 0.00000001 c := A.Equal(B); // Check for exact match FreeIt(A,B); end;